home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1286.dms / var1286.adf / printers / IBMColorJet / Init.asm < prev    next >
Assembly Source File  |  1992-09-02  |  3KB  |  107 lines
  1. * printer device - init.asm AmigaLink 1/25/86 *
  2. **********************************************************************
  3. *                                                                    *
  4. *   Copyright 1985, Commodore-Amiga Inc.   All rights reserved.      *
  5. *   No part of this program may be reproduced, transmitted,          *
  6. *   transcribed, stored in retrieval system, or translated into      *
  7. *   any language or computer language, in any form or by any         *
  8. *   means, electronic, mechanical, magnetic, optical, chemical,      *
  9. *   manual or otherwise, without the prior written permission of     *
  10. *   Commodore-Amiga Incorporated, 983 University Ave. Building #D,   *
  11. *   Los Gatos, California, 95030                                     *
  12. *                                                                    *
  13. **********************************************************************
  14. *
  15. *    printer device functions
  16. *
  17. **********************************************************************
  18.  
  19.      SECTION        printer
  20.  
  21. *------ Included Files -----------------------------------------------
  22.  
  23.      INCLUDE        "exec/types.i"
  24.      INCLUDE        "exec/nodes.i"
  25.      INCLUDE        "exec/lists.i"
  26.      INCLUDE        "exec/memory.i"
  27.      INCLUDE        "exec/ports.i"
  28.      INCLUDE        "exec/libraries.i"
  29.  
  30.      INCLUDE        "macros.i"
  31.  
  32. *------ Imported Functions -------------------------------------------
  33.  
  34.      XREF_EXE  CloseLibrary
  35.      XREF_EXE  OpenLibrary
  36.      XREF      _AbsExecBase
  37.  
  38.  
  39.      XREF      _PEDData
  40.  
  41.  
  42. *------ Exported Globals ---------------------------------------------
  43.  
  44.      XDEF      _Init
  45.      XDEF      _Expunge
  46.      XDEF      _Open
  47.      XDEF      _Close
  48.      XDEF      _PD
  49.      XDEF      _PED
  50.      XDEF      _SysBase
  51.      XDEF      _GfxBase
  52.  
  53.  
  54. **********************************************************************
  55.      SECTION        printer,DATA
  56. _PD       DC.L 0
  57. _PED      DC.L 0
  58. _SysBase  DC.L 0
  59. _GfxBase  DC.L 0
  60.  
  61.  
  62. **********************************************************************
  63.      SECTION        printer,CODE
  64. _Init:
  65.           MOVE.L    4(A7),_PD
  66.           LEA  _PEDData(PC),A0
  67.           MOVE.L    A0,_PED
  68.           MOVE.L    A6,-(A7)
  69.           MOVE.L    _AbsExecBase,A6
  70.           MOVE.L    A6,_SysBase
  71.  
  72. *        ;------ open the graphics library
  73.           LEA  GLName(PC),A1
  74.           MOVEQ     #0,D0
  75.           CALLEXE OpenLibrary
  76.           MOVE.L    D0,_GfxBase
  77.           BEQ  initGLErr
  78.  
  79.           MOVEQ     #0,D0
  80. pdiRts:
  81.           MOVE.L    (A7)+,A6
  82.           RTS
  83.  
  84. initGLErr:
  85.           MOVEQ     #-1,D0
  86.           BRA.S     pdiRts
  87.  
  88. GLName:
  89.           DC.B 'graphics.library'
  90.           DC.B 0
  91.           DS.W 0
  92.  
  93.  
  94. *---------------------------------------------------------------------
  95. _Expunge:
  96.           MOVE.L    _GfxBase,A1
  97.           LINKEXE   CloseLibrary
  98.  
  99.  
  100. *---------------------------------------------------------------------
  101. _Open:
  102. _Close:
  103.           MOVEQ     #0,D0
  104.           RTS
  105.  
  106.           END
  107.